open(BUFF1,"beagleout_22_chopped_4_mb.r2");
open(BUFF2,"beagleout_22.r2");
open(BUFF3,"markers.txt");
open(WRBUFF,">marker_ori_imp_prob_chop_imp_prob_4");
while($line = <BUFF1>)
{
	chomp $line;
	@array = split("\t",$line);
	$hash1{$array[0]} = $array[1];
}
while($line = <BUFF2>)
{
        chomp $line;
        @array = split("\t",$line);
        $hash2{$array[0]} = $array[1];
}
while($line = <BUFF3>)
{
        chomp $line;
        @array = split(" ",$line);
	if($array[1] >=14560203 && $array[1]<54560203)
	{
        	print WRBUFF $array[0]."\t".$array[1]."\t".$hash1{$array[0]}."\t".$hash2{$array[0]}."\n";
	}
}

